home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / eot_fxforge2.ifx < prev    next >
Text File  |  2004-08-03  |  1KB  |  63 lines
  1. /* Execution Arexx program for AutoFX and FXForge
  2.    EOT_FXForge1.ifx
  3.  
  4. Programmed by K. Barkley Dec 1997
  5. These scripts are set up so that the script can be called multiple times in the
  6. same AutoFX session without colliding.  I have provided 2, but the scheme can be
  7. easily extended to any number, by changing the value of the INSTANCE variable and 
  8. renaming the script accordingly.
  9.  
  10. Remember to change both the .pre and the .ifx script!
  11. */
  12. OPTIONS RESULTS
  13.  
  14. instance = 2
  15.  
  16. rc = 0
  17.  
  18. base = 'AutoFx_FXFld' || instance || '_'
  19.  
  20. /* set up the path and initial file */
  21. lpath = GETCLIP(base || 'Path')
  22. lfile = GETCLIP(base || 'File')
  23.  
  24. /* get the variables */
  25. DO i = 0 TO 7
  26.    ctemp = GETCLIP(base||'Ctl'||i)
  27.    IF ctemp = "" THEN control.i = 0
  28.       ELSE control.i = ctemp
  29.  
  30.    ctemp = GETCLIP(base|| 'Stp' || i)
  31.    IF ctemp = "" THEN step.i = 0
  32.       ELSE step.i = ctemp
  33. END i
  34.  
  35.  
  36.  
  37.  
  38. /* build the command string */
  39.  
  40. cmd = ' LOAD '|| lpath || '/' || lfile
  41.  
  42.  
  43. do i = 0 to 7
  44.    cmd = cmd || ' c ' || i || ' ' || control.i
  45. end i
  46.  
  47. hook FXForge cmd
  48.  
  49.  
  50. /* bump the current controls and save them */
  51.  
  52. DO i = 0 TO 7
  53.    control.i = control.i + step.i
  54.    IF control.i > 255 THEN control.i = 255
  55.    IF control.i < 0 THEN control.i = 0
  56.    CALL SETCLIP(base||'Ctl'||i, control.i )
  57.    
  58. END i
  59.  
  60.  
  61. rc = 0
  62.  
  63. EXIT rc